home *** CD-ROM | disk | FTP | other *** search
/ Ian Livingstone's Deatht…s Kit (Europe) (En,Fr,De) / Ian Livingstone's Deathtrap Dungeon - Digital Press Kit (Europe) (En,Fr,De).bin / mac / XTRAS / SHARED.CST / 00054_Script_54 < prev    next >
Text File  |  1996-08-22  |  410b  |  14 lines
  1. on xtracopy
  2.   openXLib "Xtras\filecopy"  -- custom xtra
  3.   
  4.   set filename = the pathName&"screens\"&the name of cast the mousecast
  5.   
  6.   if fileName > "" then
  7.     set wFileName = doSaveAsDlg(the pathName&"screens\"&the name of cast the mousecast, "Bitmap Files@*.bmp")
  8.     if wFileName > "" then
  9.       copyFile(wFileName, fileName)
  10.     end if  
  11.   end if
  12.   
  13.   closeXLib "Xtras\filecopy"
  14. end xtracopy